<%
Function CMS_PPT(n)
  Dim aList,oArticle
  Set aList = CMS_PostList(9,"Where ([log_Istop]<>0)")
  Dim i,j,s
  s = ""
  For i=0 To aList.Count-1
    j=aList.Keys
    Set oArticle=aList.Item(j(i))
    oArticle.template = n
    oArticle.Intro=CMS_Transfer(oArticle.Intro)
    If oArticle.Export(ZC_DISPLAY_MODE_ALL)= True Then
      oArticle.Build
      s = s & oArticle.html
    End If
    Set oArticle = Nothing
  Next
  Call SaveToFile(CMS_Path(n,""),s,"utf-8",False)
  Session("batchtime")=Session("batchtime")+RunTime
End Function
%>